home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 121 / Computer Shopper 121 / Computer Shopper 121.iso / HomeBus / money / Money98 / MONEY98.1 / SAVAPP.DCR / 00024_calculateTotal.ls < prev    next >
Encoding:
Text File  |  1997-10-10  |  384 b   |  14 lines
  1. on calculateTotal
  2.   global yvalue, rvalue, ivalue, avalue, tvalue
  3.   set n to 0
  4.   set tempr to 1.0 + (float(rvalue) / 100)
  5.   set tvalue to ivalue
  6.   repeat while n < yvalue
  7.     set n to n + 1
  8.     set tvalue to (tvalue + avalue) * tempr
  9.   end repeat
  10.   calcDollar(string(integer(tvalue)))
  11.   set the text of member "answer" to the result
  12.   set the text of member "total" to the result
  13. end
  14.